home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / zpont311.lha / zpoint-3.11 / Rexx / ZP-View.zprx.lha / ZP-View.zprx next >
Text File  |  1994-09-01  |  6KB  |  338 lines
  1. /*
  2.    $VER: ZP-View.zprx V1.0 (1.9.94)
  3.  
  4.    Dieses Script dient zum externen Anzeigen von Nachrichten aller Art,
  5.    es ermittelt den Typ der anzuzeigenden  Datei und ruft ein passendes
  6.    Anzeige-, Abspiel-, oder Bearbeitungsprogramm auf.
  7.  
  8.  
  9.    FUNKTIONSBESCHREIBUNG, INSTALLATION:
  10.  
  11.    Eine genauere  Beschreibung und Hinweise zur Installation  entnehmen
  12.    Sie bitte der Datei 'ZP-View.zprx.dok'.
  13.  
  14.  
  15.    AUTOR DIESES SKRIPTS:
  16.  
  17.       Jürgen Kohrmeyer       Tel. : +49 5402 5195
  18.       Oststraße 2            EMail: j_kohrmeyer@wilam.north.de
  19.       49143 Bissendorf
  20. */
  21.  
  22. /*******************************************
  23. ** Konfiguration
  24. *******************************************/
  25.  
  26. /* Name der Datei für Temporäre Daten */
  27.  
  28. tempdatei = 'T:ZP-View-Daten.temp'
  29.  
  30.  
  31.  
  32. /* Name der Datei für Sounddaten */
  33. /* ACHTUNG: Die Datei wird nicht automatisch gelöscht! */
  34.  
  35. sounddatei = 'T:ZP-View-Sound.temp'
  36.  
  37.  
  38.  
  39. /* Das hier angegebene 'CON: Fenster' wird für die */
  40. /* Ein/Ausgabe von PGP benutzt. */
  41.  
  42. window  = 'CON:0/300/800/300/PGP/AUTO/CLOSE/SCREEN'||screenname
  43.  
  44.  
  45.  
  46. /*******************************************
  47. ** Beginn des Scripts
  48. *******************************************/
  49.  
  50. OPTIONS RESULTS
  51. PARSE ARG screenname
  52.  
  53. IF screenname = '' THEN
  54.    screenname = 'ZPoint'
  55.  
  56. ADDRESS VALUE screenname
  57.  
  58.  
  59.  
  60. /* rexxtricks.library öffnen */
  61.  
  62. IF ~SHOW('LIBRARIES','rexxtricks.library') THEN
  63.    IF ~ADDLIB('rexxtricks.library',0,-30,0) THEN DO
  64.       REQUESTNOTIFY 'Kann rexxtricks.library nicht öffnen!'
  65.       EXIT
  66.    END
  67.  
  68.  
  69.  
  70. /* rexxsupport.library öffnen */
  71.  
  72. IF ~SHOW('LIBRARIES','rexxsupport.library') THEN
  73.    IF ~ADDLIB('rexxsupport.library',0,-30,0) THEN DO
  74.       REQUESTNOTIFY 'Kann rexxsupport.library nicht öffnen!'
  75.       EXIT
  76.    END
  77.  
  78.  
  79.  
  80. /* Aktuelle Nachricht auslagern */
  81.  
  82. dateiname = 'T:ZP-View-Nachricht.temp'
  83. SAVEMESSAGEBODY dateiname
  84. IF (~RC) THEN DO
  85.    REQUESTNOTIFY 'Kann Nachricht nicht speichern!'
  86.    EXIT
  87. END
  88.  
  89.  
  90.  
  91. /* ARexx-Port auf Shell einstellen */
  92.  
  93. ADDRESS COMMAND
  94.  
  95.  
  96.  
  97. /* Übergebene Datei verarbeiten */
  98.  
  99. CALL showfile dateiname
  100.  
  101.  
  102.  
  103. /* Tempdateien löschen, falls vorhanden */
  104.  
  105. IF EXISTS(dateiname) THEN
  106.    'delete' dateiname 'quiet'
  107.  
  108. IF EXISTS(tempdatei) THEN
  109.    'delete' tempdatei 'quiet'
  110.  
  111. IF EXISTS(tempdatei||'-1') THEN
  112.    'delete' tempdatei||'-1' 'quiet'
  113.  
  114.  
  115.  
  116. /* Script beenden */
  117.  
  118. EXIT(0)
  119.  
  120.  
  121.  
  122. /*******************************************
  123. ** Eine Datei anzeigen
  124. *******************************************/
  125.  
  126. showfile:
  127.    PARSE ARG file
  128.  
  129.    /* Dateityp feststellen */
  130.    typ = WHATIS(file)
  131.  
  132.    /* Unerlaubte zeichen aus dem Typ-String entfernen */
  133.    typ = TRANSLATE(typ,'__',' -')
  134.  
  135.    /* Passende Funktion aufrufen */
  136.    INTERPRET 'CALL' typ
  137. RETURN
  138.  
  139.  
  140.  
  141. /*******************************************
  142. ** Funktionen für die einzelnen Dateitypen
  143. *******************************************/
  144.  
  145. Text:
  146.    OPTIONS FAILAT 32
  147.  
  148.    /* Nachricht entschlüsseln oder Public-Key bearbeiten */
  149.  
  150.    'pgp' file '-o' tempdatei
  151.  
  152.    IF rc = 31 THEN DO
  153.       REQUESTNOTIFY 'Sie besitzen nicht den passenden Key'||'0A'x||'um diese Nachricht zu entschlüsseln!'
  154.       RETURN
  155.    END
  156.  
  157.    OPTIONS FAILAT 10
  158.  
  159.    /* Die normale oder die entschlüsselte Datei anzeigen */
  160.  
  161.    IF EXISTS(tempdatei) THEN
  162.       'multiview' tempdatei 'PUBSCREEN' screenname
  163.    ELSE
  164.       'multiview' file 'PUBSCREEN' screenname
  165. RETURN
  166.  
  167. Asm:
  168. Doc:
  169. FTXT:
  170. Guide:
  171. Incld_Asm:
  172. Include_C:
  173. MakeFile:
  174. PS:
  175. ReadMe:
  176. Rexx:
  177. Script:
  178. Source_C:
  179. Src_Ada:
  180. Tex:
  181.    'multiview' file 'PUBSCREEN' screenname
  182. RETURN
  183.  
  184. 8SVX:
  185. Wave:
  186.    'multiview' file 'PUBSCREEN' screenname
  187. RETURN
  188.  
  189. BMP:
  190. BMP_1Bit:
  191. BMP_4Bit:
  192. BMP_8Bit:
  193.    'multiview' file 'SCREEN'
  194. RETURN
  195.  
  196. PCX:
  197.    'rename' file file||'.PCX'
  198.    'multiview' file||'.PCX' 'SCREEN'
  199.    'rename' file||'.PCX' file
  200. RETURN
  201.  
  202. ANIM:
  203. GIF:
  204. ILBM:
  205. ILBM24:
  206. JPEG:
  207.    CALL PRAGMA('S',10240)
  208.    'VT_EGS >NIL:' file
  209. RETURN
  210.  
  211. Icon:
  212. Icn_Disk:
  213. Icn_Drw:
  214. Icn_Grbg:
  215. Icn_Pjct:
  216. Icn_Tool:
  217.    oldscreen = SETDEFAULTPUBSCREEN(screenname)
  218.    oldmodes  = SETPUBSCREENMODES('SP')
  219.  
  220.    'rename' file file||'.info'
  221.    'viewicon >NIL:' file||'.info'
  222.    'rename' file||'.info' file
  223.  
  224.    oldmodes  = SETPUBSCREENMODES(oldmodes)
  225.    oldscreen = SETDEFAULTPUBSCREEN(oldscreen)
  226. RETURN
  227.  
  228. Exe:
  229. PP_Exe:
  230. PP30_Exe:
  231. PP40_Exe:
  232. Pure_Exe:
  233.    file '>CON:////ZP-View-Console/CLOSE/AUTO/WAIT/SCREEN'||screenname
  234. RETURN
  235.  
  236. Med_MOD:
  237. PP_MEdMOD:
  238. PP_ST_Mod:
  239. ST_Mod:
  240.    'copy' file sounddatei
  241.    'player NOREQUEST SCREEN' screenname 'PLAY' sounddatei
  242. RETURN
  243.  
  244. Imp_Data:
  245. ImpLS:
  246. ImpLS_Lib:
  247. PP_Data:
  248. PP_Doc:
  249. PPLibHead:
  250. PPLoadSeg:
  251.    'xfddecrunch' file tempdatei
  252.    'copy' tempdatei tempdatei||'-1'
  253.    'delete' tempdatei
  254.    CALL showfile tempdatei||'-1'
  255. RETURN
  256.  
  257. TIFF:
  258. TIFF_Gray:
  259.    oldscreen = SETDEFAULTPUBSCREEN(screenname)
  260.    oldmodes  = SETPUBSCREENMODES('SP')
  261.  
  262.    oldstack = PRAGMA('S',10240)
  263.    'tiffview' file
  264.  
  265.    oldmodes  = SETPUBSCREENMODES(oldmodes)
  266.    oldscreen = SETDEFAULTPUBSCREEN(oldscreen)
  267. RETURN
  268.  
  269. Lib:
  270.    'version >'||tempdatei file 'FILE FULL'
  271.    'multiview' tempdatei 'PUBSCREEN' screenname
  272. RETURN
  273.  
  274. GZip:
  275.    'gzip >'||tempdatei '-l' file
  276.    'multiview' tempdatei 'PUBSCREEN' screenname
  277. RETURN
  278.  
  279. LHArc:
  280.    'lha >'||tempdatei 'v' file
  281.    'multiview' tempdatei 'PUBSCREEN' screenname
  282. RETURN
  283.  
  284. Shrink:
  285.    'shrink >'||tempdatei 'va' file
  286.    'multiview' tempdatei 'PUBSCREEN' screenname
  287. RETURN
  288.  
  289. ZIP:
  290.    'unzip >'||tempdatei '-v' file
  291.    'multiview' tempdatei 'PUBSCREEN' screenname
  292. RETURN
  293.  
  294. Zoo:
  295.    'zoo >'||tempdatei 'v' file
  296.    'multiview' tempdatei 'PUBSCREEN' screenname
  297. RETURN
  298.  
  299. ABasic:
  300. BAD_IFF:
  301. Caligari:
  302. CDAF:
  303. DMS:
  304. EPU_NUKE:
  305. EPU_XPK:
  306. EPUed:
  307. IFF:
  308. GFA:
  309. Imagine:
  310. Manx_DBG:
  311. Manx_DMP:
  312. MaxiPlan:
  313. Mnx3.6Lib:
  314. Mnx3.6Obj:
  315. Mnx5.0Lib:
  316. Mnx5.0Obj:
  317. MEd_Song:
  318. Object:
  319. PPM_V1.8:
  320. PPM_V2.1:
  321. PREFS:
  322. SFX:
  323. SMUS:
  324. STSong:
  325. SUNRASTER:
  326. TARGA:
  327. TERM:
  328. Tex_DVI:
  329. Tex_Font:
  330. Unknown:
  331. Unscanned:
  332. Vista_DEM:
  333. Warp:
  334. Zoom:
  335.    ADDRESS VALUE screenname
  336.    REQUESTNOTIFY 'Für Dateien des Typs' '"'||typ||'"'||'0A'x||'ist kein Anzeigeprogramm konfiguriert!'
  337. RETURN
  338.